home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / 422mods.zip / REPLYEM.422 < prev    next >
Text File  |  1993-02-08  |  3KB  |  82 lines
  1. WHIP14.MOD
  2. Whiplash #1 @3651
  3. Wed Feb 03 07:42:25 1993
  4. ┌────────────────────────────────────────────────────────────────────────────┐
  5. │ Mod Name:       WHIP14.MOD      Mod Author:  Whiplash                      │
  6. │ Difficulty:     Easy                  Date:  February 1, 1993              │
  7. │ WWIV Version:   4.22                                                       │
  8. │ Description:    Asks a user if he really wants to reply to a message in    │
  9. │                 email.                                                     │
  10. └────────────────────────────────────────────────────────────────────────────┘
  11.  
  12. As most of you might realize, I have not released any of my mods in a long
  13. time.  Most of them are small and worthless, so I never released them, but
  14. someone told me I should release a few of my handy ones, so I am putting
  15. this one up today.
  16.  
  17. If you are a sysop like me, you like the users of the system to respond to
  18. messages publically, and not in email.  Unfortunately, Telegard uses A to
  19. reply to messages, and half the users on my system, don't realize they are
  20. on a WWIV system.
  21.  
  22. What this mod does is simply asks a user if they are sure that they want to
  23. reply publically when they hit A at the message base prompt.
  24.  
  25. Step #1:  Back up MSGBASE1.C.
  26.  
  27. Step #2:  Open up MSGBASE1.C
  28.  
  29. Step #3:  Go into void scan(int msgnum, int optype, int *nextsub); and search
  30.           for case 'A' and replace it with this one:
  31.  
  32.               case 'A':
  33.                 nl();
  34.                 prt(5,"Make this reply public 1[3y/N1]3? ");
  35.                 if (yn()) {
  36.                   deleted_flag=0;
  37.                   grab_quotes(&(msgs[msgnum].msg),subboards[curlsub].filename);
  38.                   post();
  39.                   if (deleted_flag && (deleted_flag<=msgnum))
  40.                     --msgnum;
  41.                   grab_quotes(NULL, NULL);
  42.                   break;
  43.             }
  44.                 if ((msgs[msgnum].ownersys) && (!msgs[msgnum].owneruser))
  45.                   grab_user_name(&(msgs[msgnum].msg),subboards[curlsub].filename);
  46.                 grab_quotes(&(msgs[msgnum].msg),subboards[curlsub].filename);
  47.                 ss=syscfg.sl[actsl];
  48.                 if (msgs[msgnum].status & status_post_new_net) {
  49.                   set_net_num(msgs[msgnum].title[80]);
  50.                   if (msgs[msgnum].title[80]==-1) {
  51.                     pl(get_string(679));
  52.                     break;
  53.                   }
  54.                 }
  55.                 if ((lcs()) || (ss.ability & ability_read_post_anony) || (msgs[msgnum].anony==0))
  56.                   email(msgs[msgnum].owneruser,msgs[msgnum].ownerys,0,0);
  57.                 else
  58.                   email(msgs[msgnum].owneruser,msgs[msgnum].ownersys,0,msgs[msgnum].anony);
  59.                 grab_quotes(NULL, NULL);
  60.                 break;
  61.  
  62. Step #4:  Compile the BBS.
  63.  
  64. Step #5:  Email me, and tell me how much you hate it, so I will stop putting
  65.           out such foolish trash.
  66.  
  67.  
  68. If it causes a solar eclipse, the ozone to explode, Mother Theresa to lose her
  69. virginity and makes John C. Holmes come back to life, it's your fault.
  70.  
  71. If you have any questions, email me:
  72. WWIVnet 1@3653
  73. SOLARnet 1@13651
  74. IceNET 1@3652
  75. RCnet 1@2
  76. TestNet 1@3650
  77. WWIVLink 1@13659
  78.  
  79. or call my sucky board:  Out Of Time, (316)/788-9495....
  80.  
  81. Well boys, that's it for this time... Z-ya......
  82.